!DOCTYPE HTML>
Formulário
<%
Response.Charset = "ISO-8859-1"
Assunto = "Formulario de contato via site"
Mensagem = "apenas teste"
Set objMail = Server.CreateObject("CDO.Message")
Set objCDOSYSCon = Server.CreateObject ("CDO.Configuration")
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'message using the network (SMTP over the network).'
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.u.inova.com.br" //nome do host
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 587
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False)'
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication'
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="seuemail@dominio.com.br" //seu email remetente
objCDOSYSCon.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="sua@senha" //senha do seu email remetente
objCDOSYSCon.Fields.update
Set objMail.Configuration = objCDOSYSCon
'Para definir o charset da mensagem'
objMail.BodyPart.Charset = "ISO-8859-1"
objMail.From = "email@dominio.com"
objMail.To = "destinatario@email.com.br" // obrigatorio email do destinatario
objMail.ReplyTo = "email@dominio.com"
objMail.Subject = Assunto
objMail.HTMLBody = Mensagem
objMail.HTMLBodyPart.Charset = "ISO-8859-1"
objMail.Send
Set objMail = Nothing
Set objCDOSYSCon = Nothing
%>
email enviado com sucesso.